home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Gamer (Italian) 48
/
PC Gamer IT CD 48 2-2.iso
/
utility
/
nmail28u
/
_SETUP.1
/
NETMAIL.EXE
/
0
/
RCDATA
/
TFCLSRC
/
TFCLSRC.txt
Wrap
Text File
|
1999-09-10
|
15KB
|
524 lines
object FClSrc: TFClSrc
Left = 24
Top = 15
HelpContext = 200
ActiveControl = sg1
AutoScroll = False
Caption = 'Import address'
ClientHeight = 374
ClientWidth = 605
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Bevel6: TBevel
Left = 320
Top = 26
Width = 279
Height = 180
Style = bsRaised
end
object Bevel2: TBevel
Left = 4
Top = 26
Width = 279
Height = 180
Style = bsRaised
end
object sbPlus: TSpeedButton
Left = 283
Top = 178
Width = 37
Height = 47
Hint = 'Insert selected field conditions| Click left button mouse'
Enabled = False
Glyph.Data = {
76040000424D7604000000000000760000002800000040000000200000000100
0400000000000004000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
F4FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
444FF6FFFFFFFFFFFFFFFFFFFFFFFFFF777FFFFFFFFFFFFFFFFFFFFFFFFFFFF4
4444666FFFFFFFFFFFFFFFFFFFFFFFF77777FF7FFFFFFFFFFFFFFFFFFFFFFF44
44444666FFFFFFFFFFFFFFFFFFFFFF7777777F77FFFFFFFFFFFFFFFFFFFFF444
444444666FFFFFFFFFFFFFFFFFFFF777777777F77FFFFFFFFFFFFFFFFFFF4444
4444444666FFFFFFFFFFFFFFFFFF77777777777F77FFFFFFFFFFFFFFFFF44444
44444444666FFFFFFFFFFFFFFFF7777777777777F77FFFFFFFFFFFFFFF444444
444444444666FFFFFFFFFFFFFF777777777777777F77FFFFFFFFFFFFF4444444
4444444444666FFFFFFFFFFFF77777777777777777F77FFFFFFFFFFF44444444
44444444444666FFFFFFFFFF7777777777777777777F77FFFFFFFFF444444444
444444444444666FFFFFFFF777777777777777777777F77FFFFFFF4444444444
4444444444444666FFFFFF77777777777777777777777F77FFFFF44444444444
44444444444444666FFFF7777777777777777777777777F77FFFFFFFFFF44444
444444446666666666FFFFFFFFF7777777777777FFFFFFFF77FFFFFFFFF44444
444444446666FFFFFFFFFFFFFFF7777777777777F7777777777FFFFFFFF44444
444444446666FFFFFFFFFFFFFFF7777777777777F777FFFFFFFFFFFFFFF44444
444444446666FFFFFFFFFFFFFFF7777777777777F777FFFFFFFFFFFFFFF44444
444444446666FFFFFFFFFFFFFFF7777777777777F777FFFFFFFFFFFFFFF46464
646464646666FFFFFFFFFFFFFFF7777777777777F777FFFFFFFFFFFFFFF64646
464646466E6EFFFFFFFFFFFFFFF7777777777777F777FFFFFFFFFFFFFFF46464
64646464E6E6FFFFFFFFFFFFFFF7777777777777F777FFFFFFFFFFFFFFF66666
666666666E6EFFFFFFFFFFFFFFF7777777777777F777FFFFFFFFFFFFFF666666
6666666EEEEEFFFFFFFFFFFFFF7777777777777FF777FFFFFFFFFFFFFE6E6E6E
6E6E6E6EEEEEEFFFFFFFFFFFF7777777777777FF77777FFFFFFFFFFEEEEEEEEE
EEEEAEAEAEAEAEFFFFFFFFF77777777777777FF7777777FFFFFFFEEEEEEEEEEE
EEEAAAAAAAAAAAAAFFFFF77777777777777FFF7777777777FFFFEEEEEEEEEEEE
EFFFAAAAAAAAAAAAAAFF7777777777777FFF77777777777777FFFFFFFFFFFFFF
FFFFFFAAAAAAAAAAAAAFFFFFFFFFFFFFFFFFFF7777777777777FFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = sbPlusClick
end
object Bevel3: TBevel
Left = 282
Top = 228
Width = 315
Height = 105
Style = bsRaised
end
object Gauge1: TGauge
Left = 286
Top = 24
Width = 31
Height = 153
Color = clNavy
Kind = gkVerticalBar
ShowText = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ForeColor = clAqua
BackColor = clSilver
ParentColor = False
ParentFont = False
Progress = 50
Visible = False
end
object LbKolzap: TLabel
Left = 286
Top = 4
Width = 3
Height = 13
end
object Gauge2: TGauge
Left = 22
Top = 210
Width = 235
Height = 14
Color = clNavy
ShowText = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ForeColor = clAqua
BackColor = clSilver
ParentColor = False
ParentFont = False
Progress = 50
Visible = False
end
object Label1: TLabel
Left = 36
Top = 268
Width = 74
Height = 13
Caption = 'Field separation'
end
object sg1: TStringGrid
Left = 8
Top = 30
Width = 270
Height = 170
Hint =
'Table-Sender| Mark field: '#39'+'#39' ,click left button mouse ; Cance' +
'llation: '#39'-'#39
BorderStyle = bsNone
Ctl3D = True
DefaultRowHeight = 15
DefaultDrawing = False
FixedCols = 0
RowCount = 2
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goRowSelect]
ParentCtl3D = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnDrawCell = sg1DrawCell
OnEnter = sg1Enter
OnExit = sg1Exit
OnKeyDown = sg1KeyDown
OnMouseDown = sg1MouseDown
ColWidths = (
32
64
101
25
30)
end
object sg2: TStringGrid
Left = 324
Top = 30
Width = 270
Height = 170
Hint =
'Table-recipient|Mark field : '#39'+'#39' , click left button mouse ; Can' +
'cellation : '#39'-'#39
BorderStyle = bsNone
Ctl3D = True
DefaultRowHeight = 15
DefaultDrawing = False
FixedColor = clSilver
FixedCols = 0
RowCount = 2
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goRowSelect]
ParentCtl3D = False
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnDrawCell = sg1DrawCell
OnEnter = sg1Enter
OnExit = sg1Exit
OnKeyDown = sg1KeyDown
OnMouseDown = sg1MouseDown
ColWidths = (
32
64
100
29
30)
end
object sg3: TStringGrid
Left = 287
Top = 232
Width = 305
Height = 97
Hint = 'Link fields| Remove : '#39'-'#39
BorderStyle = bsNone
Color = clWhite
ColCount = 3
Ctl3D = True
DefaultRowHeight = 15
DefaultDrawing = False
FixedCols = 0
RowCount = 2
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goRowSelect]
ParentCtl3D = False
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnDrawCell = sg3DrawCell
OnEnter = sg1Enter
OnExit = sg1Exit
OnKeyDown = sg3KeyDown
ColWidths = (
147
18
127)
end
object bbCopy: TBitBtn
Left = 406
Top = 340
Width = 95
Height = 25
Caption = 'Copy'
Enabled = False
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnClick = bbCopyClick
Glyph.Data = {
BE060000424DBE06000000000000360400002800000024000000120000000100
0800000000008802000000000000000000000001000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000C0DCC000F0C8
A400000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
03030303030303030303030303030303030303FFFFFFFFFF0303030303030303
03030303F8F8F8F8F8F80303030303030303030303FFF8F8F8F8F8F8FFFFFF03
030303030303F8F8010101010101F8F80303030303030303F8F80303FFFFFF03
F8F8FFFF0303030303F8010101F9F9F9F9010101F8030303030303F8FF0303F8
F8F8F8FF0303F8FFFF030303F90101F9F90303030301010101F803030303F8FF
03F8F803030303F8030303F8FF030303F901010303030303F801010101F80303
0303F8FFF8FF03030303F80303FF03F8FF0303F90101F803030303F8010101F9
0101F80303F8FF03F8FF030303F80303FFF8FF03F8FF03F901F803030303F801
0101F903F901F80303F8FFF8FF030303F80303FFF803F8FFF8FF03F901F80303
03F8010101F90303F901F80303F8FFF8FF0303F80303FFF80303F8FFF8FF03F9
01F80303F8010101F9030303F901F80303F8FFF8FF03F80303FFF8030303F8FF
F8FF03F901F803F8010101F903030303F901F80303F8FFF8FFF80303FFF80303
0303F803F8FF03F90101F8010101F903030303F90101F80303F8FF03F80303FF
F803030303F80303F8030303F901010101F90303030303F901F803030303F8FF
0303FFF8030303FFFFF803F8FF030303F9010101F803030303F8010101F80303
0303F8FF0303F8FFFFFFFFF8F803FFF80303030303F9010101F8F8F8F8010101
F8030303030303F8FFFF03F8F8F8F803FFFFF803030303030303F9F901010101
0101F9F90303030303030303F8F8FFFFFFFFFFFFF8F803030303030303030303
F9F9F9F9F9F9030303030303030303030303F8F8F8F8F8F80303030303030303
0303030303030303030303030303030303030303030303030303030303030303
0303}
NumGlyphs = 2
end
object BitBtn2: TBitBtn
Left = 500
Top = 340
Width = 95
Height = 25
Caption = 'Exit'
ParentShowHint = False
ShowHint = True
TabOrder = 6
Kind = bkCancel
end
object bbSrc: TBitBtn
Left = 4
Top = 0
Width = 281
Height = 23
Hint = 'Selection table -sender|Click left button mouse'
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = bbSrcClick
end
object bbDst: TBitBtn
Left = 319
Top = 0
Width = 280
Height = 23
Hint = 'Table-recipient'
Caption = 'Address'
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = bbDstClick
end
object pnlHint: TPanel
Left = 2
Top = 346
Width = 395
Height = 17
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 7
end
object NamegrouptLB: TComboBox
Left = 6
Top = 233
Width = 267
Height = 21
Hint = 'Group of address'
Style = csDropDownList
Color = clWhite
Ctl3D = False
DropDownCount = 30
ItemHeight = 13
Items.Strings = (
'Last Name'
'First Name'
'Address')
ParentCtl3D = False
TabOrder = 8
end
object RGTipAddr: TRadioGroup
Left = 56
Top = 288
Width = 185
Height = 49
Columns = 3
ItemIndex = 0
Items.Strings = (
'e.mail '
'cc '
'bcc')
TabOrder = 9
end
object SectionSymbol: TComboBox
Left = 176
Top = 264
Width = 65
Height = 21
Style = csDropDownList
Ctl3D = False
ItemHeight = 13
Items.Strings = (
','
'.'
'/'
'\'
'|'
'+'
'='
'-'
':'
';'
'<'
'>'
'@'
'!'
'~'
'#'
'$'
'%'
'^'
'&'
'*'
'('
')'
'{'
'}')
ParentCtl3D = False
TabOrder = 10
OnChange = SectionSymbolChange
end
object dsSrc: TDataSource
DataSet = qSrc
Left = 12
Top = 34
end
object qSrc: TQuery
DatabaseName = 'VistaMail'
SQL.Strings = (
'select * from ClSource')
Left = 12
Top = 50
end
object dsW: TDataSource
DataSet = qW
Left = 88
Top = 34
end
object qW: TQuery
DatabaseName = 'VistaMail'
UniDirectional = True
Left = 88
Top = 50
end
object dsDst: TDataSource
DataSet = SqDst
Left = 40
Top = 34
end
object SqDst: TQuery
AutoCalcFields = False
DatabaseName = 'VistaMail'
RequestLive = True
SQL.Strings = (
'select * from Client')
Left = 40
Top = 50
end
object OpDlg: TOpenDialog
DefaultExt = 'DB'
Filter = 'DB|*.db|DBF|*.dbf|TXT|*.txt|All|*.*'
InitialDir = 'C:\BMV\PensNew'
Left = 122
Top = 48
end
object qDst: TTable
DatabaseName = 'VistaMail'
TableName = 'ADRESS5.DB'
TableType = ttParadox
Left = 40
Top = 80
end
object TGroup: TTable
DatabaseName = 'VistaMail'
TableName = 'GroupNam.db'
TableType = ttParadox
Left = 376
Top = 181
object TGroupNameGroup: TStringField
DisplayLabel = 'Name Group'
DisplayWidth = 30
FieldName = 'NameGroup'
Size = 50
end
object TGroupSubject: TStringField
DisplayWidth = 30
FieldName = 'Subject'
Size = 100
end
object TGroupComment: TStringField
FieldName = 'Comment'
Visible = False
Size = 150
end
object TGroupPosG: TAutoIncField
FieldName = 'PosG'
Visible = False
end
object TGroupNote1: TStringField
FieldName = 'Note1'
Size = 50
end
object TGroupNote2: TStringField
FieldName = 'Note2'
Size = 50
end
end
object TLISTGR: TTable
DatabaseName = 'VistaMail'
TableName = 'LISTGR'
TableType = ttParadox
Left = 368
Top = 133
object TLISTGRPosG: TIntegerField
FieldName = 'PosG'
end
object TLISTGRPosA: TIntegerField
FieldName = 'PosA'
end
end
end